home *** CD-ROM | disk | FTP | other *** search
/ The American Nation / Resource Pro - The American Nation.iso / pc / data1.cab / Database_Files / ResourcePro.exe / launchpd.dxr / 00030_LOE Launch.ls < prev    next >
Encoding:
Text File  |  2000-11-28  |  941 b   |  33 lines
  1. on mouseUp
  2.   global gCurriculum
  3.   if the platform contains "windows" then
  4.     set loePath to the pathName
  5.     repeat while the last char in loePath <> "\"
  6.       delete char -30000 of loePath
  7.     end repeat
  8.     delete char -30000 of loePath
  9.     repeat while the last char in loePath <> "\"
  10.       delete char -30000 of loePath
  11.     end repeat
  12.     set loe to loePath & "Planning Express\loe.exe"
  13.     set err to OpenApp(loe, "AB", gCurriculum)
  14.   else
  15.     set err to "none"
  16.     set loePath to the pathName
  17.     repeat while the last char in loePath <> ":"
  18.       delete char -30000 of loePath
  19.     end repeat
  20.     set db to loePath & gCurriculum & ".ped"
  21.     delete char -30000 of loePath
  22.     repeat while the last char in loePath <> ":"
  23.       delete char -30000 of loePath
  24.     end repeat
  25.     set loe to loePath & "Planning Express:Local Objectives Editor"
  26.     open(db, loe)
  27.   end if
  28.   if err <> "none" then
  29.     alert(err)
  30.     go("main")
  31.   end if
  32. end
  33.